home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / docs / misc / UMSFAQv2.lha / UMS-FAQ / bin / getnews < prev    next >
Encoding:
AmigaDOS Script File  |  1995-05-11  |  1.6 KB  |  41 lines
  1. .KEY HOST,GROUPS/K,HISTORY/K,STAMP/K,KILL/K,TO/K,PANIC/K,BATCH/K/N,BLIP/K/N,TRACE/K/N
  2. .bra {
  3. .ket }
  4. .def HOST news.demon.co.uk                      ; nntp server
  5. .def GROUPS "uulib:newsgroups"                  ; file containing list of groups
  6. .def HISTORY "amitcp:db/newshistory"            ; file containing news history
  7. .def STAMP "amitcp:db/newstamp"                 ; file containing date news last retrieved
  8. .def KILL "amitcp:db/nntpkillfile"              ; file containing kill instructions
  9. .def BLIP 10                                    ; frequency of display of blipmsg
  10. .def TO "UUspool:newsbatch"                     ; file to contain batched news
  11. .def PANIC 200000                               ; maximum size of pending news in T:
  12. .def BATCH 10                                   ; maximum number of requests batched to server
  13. .def TRACE 3                                    ; amount of information displayed
  14.  
  15. set COMMANDS T:{HOST}.Commands
  16.  
  17. if NOT EXISTS {GROUPS}                          ; Check we have a Groups file
  18.     echo "You must set up a '{GROUPS}' file, or give the name"
  19.     echo "of another file containing the news groups you want"
  20.     quit 10
  21. endif
  22.  
  23. echo "NEWNEWS {GROUPS} {TO}" >$COMMANDS
  24.  
  25. failat 16
  26. lab getnews
  27.  
  28. nntpclient {HOST} COMPLEX BATCH {BATCH} BLIP {BLIP} BLIPMSG "NNTP: %5ld articles received" HISTORYFILE {HISTORY} STAMPFILE {STAMP} TRACE {TRACE} KILLFILE {KILL} <$COMMANDS
  29.  
  30. if $RC EQ 15
  31.     echo "Failed, Retry at {HOST}"
  32.     wait 2
  33.     skip getnews back
  34. endif
  35.  
  36. failat 10                                       ; back to default
  37.  
  38. delete $COMMANDS
  39. wait 5
  40. endcli
  41.